Voorbeeld van de functie Mid

Het eerste voorbeeld maakt gebruik van de functie Mid om een opgegeven aantal tekens uit een tekenreeks als resultaat te geven.

Dim MyString, FirstWord, LastWord, MidWords
MyString = "Demonstratie van functie Mid"    ' Maakt tekenreeks.
FirstWord = Mid(MyString, 1, 12)    ' Geeft "Demonstratie".
LastWord = Mid(MyString, 25, 3)    ' Geeft "Mid".
MidWords = Mid(MyString, 14, 11)    ' Geeft "van functie".

Het tweede voorbeeld gebruikt de functie MidB en een door de gebruiker gedefinieerde functie (MidMbcs) om eveneens tekens uit een tekenreeks te geven. Het verschil hier is dat de invoerreeks ANSI is en de lengte in bytes is opgegeven.

Function MidMbcs(ByVal str as String, start, length)
    MidMbcs = StrConv(MidB(StrConv(str, vbFromUnicode), start, length), vbUnicode)
End Function

Dim MyString
MyString = "AbCdEfG"
' Waarbij "A", "C", "E" en "G" zijn DBCS en "b", "d" 
' en "f" zijn SBCS.
MyNewString = Mid(MyString, 3, 4)
' Geeft ""CdEf"
MyNewString = MidB(MyString, 3, 4)
' Geeft ""bC"
MyNewString = MidMbcs(MyString, 3, 4)
' Geeft "bCd"